home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Applications / Text / Text Editors / Alpha 5.31 Folder / Tcl / ElectricAlias / Aliases / aliases.Awk next >
Encoding:
Text File  |  1993-01-23  |  1.6 KB  |  36 lines  |  [TEXT/ALFA]
  1. # FILE: aliases.Awk
  2. #
  3. # DESC: Aliases for Awk mode
  4. #
  5. # LAST UPDATE: 01/06/93 5:32:02 AM 
  6.  
  7.     electricAlias-def •Awk •Awk •Awk
  8.     electricAlias-var Awk bb "\{"
  9.     electricAlias-var Awk eb "\}"
  10.     electricAlias-var Awk bc "#"
  11.     electricAlias-var Awk ec ""
  12.     electricAlias-def •Awk #!       "§«askalias {File name} NAME»#! /bin/nawk -f\r#\r# §{NAME}•\r\r•"
  13.     electricAlias-def •Awk BEGIN    "BEGIN \{\r\t•\r\}§{bc}end BEGIN§{ec}•"
  14.     electricAlias-def •Awk END      "END \{\r\t•\r\}§{bc}end END§{ec}•"
  15.     electricAlias-def •Awk function "§«askalias {function name} NAME»§{sep}function §{NAME}(•) \{\r\t•\r\}§{bc}endfunction §{NAME}§{ec}\r\r•"
  16.     electricAlias-def •Awk \{       "\{\r\t•\r\}•"
  17.     electricAlias-def •Awk do       "do \{\r\t•\r\} while (•);•"
  18.     electricAlias-def •Awk for      "for (•;•;•) \{\r\t•\r\}§{bc}endfor§{ec}•"
  19.     electricAlias-def •Awk foreach  "for (• in •) \{\r\t•\r\}§{bc}endforeach§{ec}•"
  20.     electricAlias-def •Awk while    "while (•) \{\r\t•\r\}§{bc}endwhile§{ec}•"
  21.     electricAlias-def •Awk if       "if (•) \{\r\t•\r\}§{bc}endif§{ec}•"
  22.     electricAlias-def •Awk elseif   "\b\} else if (•) \{\r•"
  23.     electricAlias-def •Awk else     "\b\} else \{\r•"
  24.     electricAlias-def •Awk forever  "while (1) \{ §{bc}forever§{ec}\r\t•\r\}§{bc}endforever§{ec}•"
  25.  
  26.     electricAlias-def •Awk readfile  "§«askalias {File name} NAME»lastno = Complete(LineCount(§{NAME}_path),0);
  27. §{NAME}_file = fopen(§{NAME}_path,\"r\");
  28. while (1) {
  29.     line = fgetline(§{NAME}_file);
  30.     if (feof(§{NAME}_file)) break;
  31.     Complete(++lineno,lastno);
  32.     •
  33. }#endwhile 1
  34. fclose(§{NAME}_file);•"
  35. #    electricAlias-def Awk "=" "§«askalias \"Assignment or test?\" eq {=} Insert {==} {=}»§{eq}"
  36.